Program Tp;
uses
    Dos,crt;
    
Const
    MAX_PEDIDOS = 200;

Type
    {$I DataTypes.pas}

    {$I FileManagment.pas}

    {$I ManejoPedidos.pas}
     
    {$I ManejoReparaciones.pas}
 
Var
	NuevaReparacion : PedidoReparado;
	NuevoRepuesto : Repuesto;
Begin
	NuevaReparacion.Numero := 1;
	NuevaReparacion.Fecha := '20202202';
	
	NuevoRepuesto.Codigo        			:= 2041;	
    NuevoRepuesto.CantidadDisponible      	:= 2;
	NuevaReparacion.RepuestosUtilizados[1] := NuevoRepuesto;
	
	NuevoRepuesto.Codigo        		:= 2041;	
    NuevoRepuesto.CantidadDisponible    := 2;
	NuevaReparacion.RepuestosUtilizados[2] := NuevoRepuesto;

	If ValidarRepuestos(NuevaReparacion) Then
		Writeln('El pedido es Valido para reparar')
	Else
		Writeln('NOO es valido');
		
	Readln;	
	 
End.
